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2.  TSS  TRACE  PACKAGE  INSTALLATION. 


Three  steps  are  necessary  to  install  the  TSS  trace  package:  preparation  of  an 
edit  tape,  preparation  of  a  GHF  object  file,  and  input  of  the  edit  tape  during 
system  startup. 

2,1  Preparation  of  edit  tape. 

Preparation  of  the  edit  tape  requires  a  FILEDIT  activity  to  create  a  dummy 
object,  library,  a  FILEDIT  activity  to  reassemble  the  TSS  modules  to  include 
new  alters,  and  a  SYSEDIT  activity  to  convert  the  object  file  into  a  system 
loadable  file  on  tape.  The  first  FILEDIT  activity  is  necessary  since  it  is 
desired  to  use  the  OBJECT, UPDATE  option  in  the  second  activity,  and  since  an 
actual  TSS  object  file  is  not  conveniently  available.  Two  groups  of  alters 
must  be  included  in  the  second  activity.  The  first  is  the  group  of  alters 
which  actually  implement  the  GMF  traces  and  console  interface.  The  second 
group  of  alters  consists  of  corrections  or  enhancements  to  TSS,  included  with 
the  standard  W6.4.2  release.  Refer  to  figure  J-5  for  a  complete  listing  of 
the  JCL  for  setting  up  the  edit  tape. 

This  JCL  stream  will  produce  full  listings  of  all  the  W6.4.2  TSS  modules, 
altered  for  the  trace  package. 

Site  option  patches  052A  and  083A  have  been  included  in  the  alter  file  at  line 
#*s  5060  and  6540  respectively  as  comments.  These  comments  must  be  changed  if 
the  user  wishes  to  include  these  options.  If  083A  is  to  be  included,  line 
6460  must  be  changed  to  read  "$  ALTER  6807,6807." 

Site  option  patch  #81 A  is  included  in  the  alter  file  at  line  tf's  9540-9590. 
This  patch  allows  Time  Sharing  to  softload  the  following  SSA  modules:  .MFS03, 
.MFS04,  .MFS08 ,  .MFS09 ,  .MFS36 ,  and  .MFS61 .  If  different  modules  are  desired 
these  alters  must  be  modified. 

The  following  patches  which  make  corrections  to  the  W6.4.2  source  code  are 
included  in  the  alter  file: 

#04H  Correction  to  alter  809+ 

#09L  Correction  to  format  of  SCF  type-218  record 


01OK  Correction  to  IDE NT  image  in  DRL  TASK 

# 1 1K  Inclusion  of  COBS  in  common  command  list 

0 15J  Correction  to  security  problems  in  DRL  TASK 

018H  Elimination  of  security  breach  for  invalid  classification 

0261  Correction  to  077F  to  restrict  CDIN  for  SACLANT  users 

9271  Correction  to  0851  for  SACLANT;  replaces  024G-and  037G 

0281  Modification  to  TSSH  for  0271 

03OG  Correction  to  alter  0O6D 

031G  Spelling  correction  for  .TSQJ1 

033G  Correction  to  typing  error  in  alter  111+ 

033L  Prevention  of  subsystem's  being  locked  in  core  after  security  breach 
03*11  Correction  to  TSS  prompt  after  TSS  MESS 
036L  Prevention  of  system  crash  after  reconnect;  replaces  081K 
037J  Bypass  for  coding  associated  with  memory  release 
04OG  Correction  for  TSS  console  messages 
0H2L  Implementation  of  SDN  K78045;  replaces  ,2K 
045L  Deallocation  of  file  after  security  breach;  replaces  087K 
05OJ  Deletion  of  part  of  885W  to  enable  SSA  loading 
0571  Correction  to  format  of  SCF  type-001  record 
057J  Correction  to  format  of  SCF  type-216  record 
059L  Prevention  of  TSS  busy  after  security  breach 
062J  Prevention  of  DRL  SWITCH  on  SY** 

068J  Inclusion  of  SORT  in  common  command  list 
0691  Prevention  of  lockup  faults 
072H  Correction  to  prevent  ZCP  faults  in  .MLOGN 
075H  Enhancement  to  allow  lowercase  output  to  VIP  7705' s 
077K  Prevention  of  system  crash  from  DRL  FILACT  type  14 
081J  Implementation  of  SDN  F7501 
083J  Verification  of  DRL  FILACT  buffer  address 
093K  Implementation  of  SDN  K78045 
096j'  Implementation  of  SDN  F7501 
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When  the  altered  version  of  TSS  is  to  be  run,  any  patches  to  TSSA  must  be 
repunched  replacing  the  .MTIMS  in  columns  73-78  with  XXXYYY.  Such  patches  cay 
be  found  in  the  EDIT  section  of  the  boot  deck  if  they  are  being  added  using 
$  APPLY  cards  or  in  the  PATCH  section  of  the  boot  deck.  In  addition,  patches 
may  have  been  made  to  the  system  files  by  means  of  a  PAVS  tape.  A  listing  of 

the  PAVS  tape  must  be  obtained  to  determine  if  any  of  the  patches  were  made  to 

catalog  name  .MTIMS.  This  XXXYYY  module  will  be  the  trace  implemented  version 
of  Time  Sharing,  located  on  system  file  TSS-GECALL.  The  original  patches  to 
.MTIMS  can  either  be  left  in  the  patch  deck  or  removed,  since  when 
Time-Sharing  reloads  itself,  such  patches  are  not  reapplied.  Any  patches  to 

TSSB  through  TSSO  not  contained  on  the  alter  file  must  be  relocated  and 

repunched  using  XXXYYY  in  place  of  .MTIMS.  To  determine  the  appropriate  alter 
nunbers  or  octal  locations  for  such  patches,  obtain  an  unaltered  listing  of 
Time  Sharing  and  a  corresponding  load  map.  Edit  the  JCL  stream  for  obtaining 
a  modified  Time  Sharing  to  remove  all  changes  to  the  Time  Sharing  modules,  and 
insert  the  following  two  records  for  each  module: 

$  ALTER  1 , 1 

LBL  TSSx ,  NSEQ  (x=A,  B . 0) 
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2.3  Preparation  of  CMP  object  file. 

Procedures  for  obtaining  an  object  file  are  the  same  as  those  described  in 
"GENERAL  MONITORING  FACILITY  Users  Manual";  they  will  not  be  repeated  here. 


2.4  Installation  of  new  Time-Sharing  on  system  files. 

Installation  of  the  TSS  trace  package  requires  that  six  cards  be  added  to  the 
H6000  boot  deck.  These  are  as  follows: 


$ 

FILDEF 

ST 1, TSS-GECALL, 

96/0, SYS, 3T5 

$ 

SYSTEM 

TSS-GECALL 

53211 

OCTAL 

2201000 

MME  GECALL 

.MTIMS 

53212 

OCTAL 

676767707070 

BCI  I.XXXYYY 

.MTIMS 

53213 

OCTAL 

0 

.MTIMS 

53214 

OCTAL 

0 

.MTIMS 

The  $  FILDEF  card  is  placed  in  the  $  EDIT  section.  The  tape  drive  name  may 
need  to  be  changed,  based  on  the  names  given  in  the  $  CONFIG  section  of  the 
boot  deck.  The  $  SYSTEM  card  is  placed  in  the  $  FILES  section.  A  partial 
edit  of  file  TSS-GECALL  is  necessary  to  copy  the  new  Time-Sharing  onto  the 
system.  The  four  OCTAL  patch  cards,  when  placed  in  the  $  PATCH  section,  force 
TSS  to  reload  itself  with  the  altered  version.  Under  W6.4.2,  the  entry  point 
address  for  TSS  is  53211;  this  is  not  necessarily  the  same  for  other  system 
releases.  The  operator  may  select  which  version  of  TSS  to  bring  up  by 
inserting  or  removing  these  four  cards,  and  by  doing  a  warm  boot  of  the  system 
with  only  the  $  PATCH  section  being  replaced. 
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3.  OPERATION  OF  THE  TIMglsHARIMG  TRACE  TOOL. 

3.1  Operator  commands  to  TSS. 

Two  new  operands  have  been  added  to  the  TSS  operator  verb.  These  are 
'TRACE  OR,"  which  causes  TSS  to  start  Baking  special  traces  for  the  trace 
tool,  and  "TRACE  OFF,"  which  stops  the  special  traces.  A  response  line  is 
printed  on  the  console  to  acknowledge  processing  of  the  console  comBand. 

:  3.2  GMC  data  collection  procedure. 

The  standard  GMC  data  collection  procedure,  as  described  in -"GENERAL 
MONITORING-  FACILITY  Users  Manual,"  has  not' been  changed.  In  the  I«  file,  M8 
must  be  enabled  (i.e.  "M8"  must  not  appear  on  the  data  card).  The  operator 
must  enter  the  "TSS  TRACE  ON"  command  to  enable  collection  of  the  Tine-Sharing 
traces.  This  command  may  be  entered  at  any  tine  after  Time-Sharing  starts, 
but  it  must  be  in  effect  while  GMC  is  running.  The  "TSS  TRACE  OFr"  command 
may  be  entered  at  any  time  after  Time-Sharing  starts.  Use  of  this  command 
while  GMC  is  running  will  avoid  writing  data  to  the  tape  if  no  analysis  is  to 
v  be  done  for  that  time  period.  '  Multiple  OFF/OH  sequences  are  permissible  on 

the  same  GMC  tape.  When  GMC  is  not  running,  use  of  "TSS  TRACE  OFF"  will 
’  eliminate  the  overhead  of  making  the  special  traces.  If  "TSS  TRACE  OFF"  is 
entered  while  the  trace  i3  disabled,  no  extra  processing  will  occur,  except 
'or  the  printing  of  the  message  on  the  console  indicating  that  the  command  had 
been  examined. 
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ALTER  FILE  USED  TO  PREPARE  EDIT  TAPE 


Figure  J-5. • 


20$ 

IDENT 

30$ 

FILED IT 

SOURCE, OBJECT, INITIALIZE, NONE 

• 

40$ 

DATA 

»C, .COPY 

50$ 

GMAP 

NLSTOU 

TSSA 

60 

LBL 

TSSA.NSEQ 

70 

SYMDEF 

TSSA 

80TSSA 

DEC 

0 

90 

END 

100$ 

GMAP 

NLSTOU 

TSSB 

110 

LBL 

TSSB.NSEQ 

120 

SYMDEF 

TSSB 

130TSSB 

DEC 

0 

140 

END 

150$ 

GMAP 

NLSTOU 

TSSC 

160 

LBL 

TSSC.NSEQ 

170 

SYMDEF 

TSSC 

180TSSC 

DEC 

0 

190 

END 

200$ 

GMAP 

NLSTOU 

TSSD 

210 

LBL 

TSSD.NSEQ 

220 

SYMDEF 

TSSD 

230TSSD 

DEC 

0 

240 

END 

250$ 

GMAP 

NLSTOU 

TSSE 

260 

LBL 

TSSE.NSEQ 

270 

SYMDEF 

TSSE 

280TSSE 

DEC 

0 

290 

END 

300$ 

GMAP 

NLSTOU 

TSSF 

310 

LBL 

TSSF.NSEQ 

320 

SYMDEF 

TSSF 

330TSSF 

DEC 

0 

340 

END 

350$ 

GMAP 

NLSTOU 

TSSG 

360 

LBL 

TSSG.NSEQ 

370 

SYMDEF 

TSSG 

380TSSG 

DEC 

0 

390 

END 

400$ 

GMAP 

NLSTOU 

TSSH 

410 

LBL 

TSSH.NSEQ 

420 

SYMDEF 

TSSH 

430TSSH 

DEC 

0 

440 

END 

450$ 

GMAP 

NLSTOU 

TSSI 

460 

LBL 

TSSI.NSEQ 

470 

SYMDEF 

TSSI 

480TSSI 

DEC 

0 

490 

END 

500$ 

GMAP 

NLSTOU 

TSSJ 

510 

LBL 

TSSJ.NSEQ 

520 

SYMDEF' 

TSSJ 

Figure  J-5.  Alter  File  Used  to  Prepare 
Edit  Tape  CPart  1  of  20) 
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530TSSJ 

DEC 

0 

• 

540 

END 

3$ 

GMAP 

NLSTOU 

TSSK 

560 

LBL 

TSSK.NSEQ 

570 

SYMDEF 

TSSK 

580TSSK 

DEC 

0 

590 

END 

600$ 

GMAP 

NLSTOU 

TSSL 

610 

LBL 

TSSL.NSEQ 

620  • 

SYMDEF 

TSSL 

630TSSL 

DEC 

0 

640 

END 

650$ 

GMAP 

NLSTOU 

TSSM 

660 

LBL 

TSSM ,NSEQ 

670 

SYMDEF 

TSSM 

680TSSM 

DEC 

0 

690 

END 

700$ 

GMAP 

NLSTOU 

TSSN 

710 

LBL 

TSSN.HSEQ 

720 

SYMDEF 

TSSN 

730TSSN 

DEC 

0 

7*»0 

END 

750$ 

GMAP 

NLSTOU 

TSSO 

760 

LBL 

TSSO.NSEQ 

770 

SYMDEF 

TSSO 

780TSS0 

DEC 

0 

790 

END 

0$ 

ENDEDIT 

010$ 

ENDCOPY 

820$ 

FILE 

R«,Z2S 

830$ 

LIMITS 

1...1K 

840$ 

FILE 

P*  .NULL 

850$ 

FILEDIT 

SOUR  CE , OBJECT , UPDATE , NONE 

860$ 

LIMITS 

,,.40K 

870$ 

DATA 

*C, .COPY 

880$ 

INCLUDE 

890$ 

SYSLD 

CATALOG=XXXYYY 

900$ 

LOWLOAD 

910$ 

OPTION 

NOSETU.SYMREF 

920$ 

NOLIB 

930$ 

MODIFY 

SOUR  CE , OBJECT , TSSA 

940$ 

GMAP 

TSSA 

'950$ 

UPDATE 

LIST' 

• 

TSSA/GMF 

960$ 

ALTER 

598,598  *****  ALTER 

FROM  SYSTEM 

PATCHES  ***** 

970CARDIN 

PRGDES 

CDIN , EXPCL , .TSCDI , . BSAC 

0261 

980$ 

ALTER 

666,666  *****  ALTER 

FROM  SYSTEM 

PATCHES  ***** 

990 

PRGDES 

EXUT, EXPCL, .TSQJ1 , .BSAC 

031G 

1000$ 

ALTER 

749  *****  ALTERS  FROM  SYSTEM  PATCHES  **« 

«« 

1010.BJ0PS  BOOL 

200000 

093K 

1020 

PRGDES 

JO  PS , EXPCL , . T JO  PS , . B JOPS 

093K 

1030 

PRGDES 

JOPT, EXPCL, .TJOPT, .BJOPS 

093K 

Figure  J-5.  (Part  2  of  20) 
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1040$ 

ALTER 

899 

*****  . 

1050 

ASCII 

1 .SORT 

068J 

1060 

OCT 

0 

068J 

1070 

ASCII 

1.C0BR 

01  IK 

1080 

OCT 

0 

#1  IK 

1090$ 

ALTER 

977 

*****  ALTERS  FROM  SYSTEM  PATCHES 

***** 

1100 

ZERO 

C65 

SORT 

068J 

1110 

ZERO 

C66 

COBR 

01  IK 

1 120$ 

ALTER 

1067 

*****  ALTERS  FROM  SYSTEM  PATCHES 

ftftftftft 

1130C65 

XCALL 

SORT.BIN 

068J 

1140C66 

XCALL 

C0BR.BIN 

01  IK 

1150$ 

ALTER 

1240.1240 

***** 

1160 

ASCII 

1 ,DFAU 

0O4H 

1170$ 

ALTER 

1242,1242 

*****  ALTER  FROM  SYSTEM  PATCHES 

ft**** 

1180 

ASCII 

1 ,WWLI 

0O4H 

1190$ 

MODIFY 

SOURCE. OBJECT, 

TSSB 

1200$ 

GMAP 

TSSB 

1210$ 

UPDATE 

LIST 

TSSB/GMF 

1220$ 

ALTER 

156 

*****  GMF  ALTERS  ***** 

1230 

SYMREF 

TREP 

GMF 

1240 

XED 

TREP 

EXECUTE  DOUBLE  AT  TREP 

GMF 

1250 

VFD 

18/0,12/7.06/74  HAVE  18/P4TTZRN,  12/TRACE  0,  06/74  GMF 

1260$ 

MODIFY 

SOURCE, OBJECT, 

TSSC 

1270$ 

GMAP 

TSSC 

1280$ 

UPDATE 

LIST 

TSSC/GMF 

1290$ 

ALTER 

10 

*****  ENABLE  PMC  ***** 

1300 

PMC 

ON 

GMF 

1310$ 

MODIFY 

SOURCE, OBJECT, 

TSSD 

1320$ 

GMAP 

TSSD 

1330$ 

UPDATE 

LIST 

TSSD/GMF 

1340$ 

ALTER 

18 

*****  ALTER  FROM  SYSTEM  PATCHES  ***** 

1350 

PMC 

ON 

GMF 

1360$ 

ALTER 

271 

*****  GMF  ALTERS  ***** 

1370  . 

SYMREF 

TREP 

GMF 

1380 

VFD 

18/TREP.018/71 7200  EXECUTE  DOUBLE  AT  TREP 

GMF 

1390 

VFD 

18/7,12/175,06/74  HAVE  18/PATTERN,  12/TRACE  0,  06/74  GMF 

1400$ 

ALTER 

392 

*****  GMF  ALTERS  ***** 

1410 

VFD 

18/TREP, 01 8/7 17200  EXECUTE  DOUBLE  AT  TREE 

GMF 

1420 

VFD 

18/0,12/176,06/74  HAVE  18/PATTERN,  12/TRACE  ?/,  06/74  GMF 

1430$ 

ALTER 

397 

*****  ALTERS  FROM  SYSTEM  PATCHES 

***** 

1440 

SYMREF 

FVCC1 

CANNOT  RETRY  DRL  IF  THIS 

059L 

1450 

LDA 

FVCC1 

—WAS  A  DEACCESS  FOR  A 

05  9L 

1460 

SZN 

•WW0SI,2 

—BREACH.  GO  SET  UP  A  PSEUDO 

059L 

1470 

TMI 

END 

— CC  TO  RETRY  PATDEA. 

05  9L 

1480$ 

ALTER 

435,435 

*****  ALTERS  FROM  SYSTEM  PATCHES 

***** 

1490 

SZN 

.WWUSI.2 

IF  WE  ARE  NOT  WAITING  FOR  A 

059L 

1500 

TPL 

ENDCC 

—BREACH  TO  PROCESS,  END  CC. 

059L 

1510 

SYMREF 

FVCC 

059L 

1520 

LDA 

FVCC 

THIS  COULD  BE  THE  ATTEMPT  TO 

059L 

1530 END 

STA 

,LCC, 2 

—RETRY  PATDEA.  HOPEFULLY  WE 

05  9L 

1540 

LDA 

.FL19+.FL30.DL 

—WERE  WAITING  FOR  THE  CC  TO 

059L 

Figure  J-5.  (part  3  of  20) 
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1550 

ORSA 

•LFLAG.2 

—FINISH  SO  WE  CAN  USE  THIS 

#59L 

1560 

LCA 

.LPACC.DL 

—PSEUDO/ ARTIFICIAL  CC  TO 

05  9L 

.'0 

STA 

. LTTYS , 2 

—CALL  BRCH. 

059L 

1580ENDCC 

LDA 

3.DL 

TELL  ALLOC  THIS  USER  FINISHED 

05  9L 

1590$ 

MODIFY 

SOURCE, OBJECT 

,TSSE 

1600$ 

GMAP 

VISE 

1610$ 

UPDATE 

LIST 

TSSF/GMF 

1620$ 

ALTER 

11 

*****  ENABLE  PMC  ***** 

1630 

PMC 

ON 

GMF 

1640$ 

MODIFY 

SOURCE, OBJECT 

,  TSSF 

1650$ 

GMAP 

TSSF 

1660$ 

UPDATE 

LIST 

TSSF/GMF 

1670$ 

ALTER 

11 

1680 

EDITP 

ON 

GMF 

1690 

PMC 

ON 

GMF 

1700$ 

ALTER 

192 

*****  GMF  ALTERS  ***** 

1710 

TILS 

GMF  TIME-SHARING  TRACE  PACKAGE  ROUTINE 

1720 

SYMDEF 

TREP, JSTOFF, GMF002 

GMF 

1730 

INHIB 

ON 

GMF 

1740JST0FFESTC1 

IC 

SAVE  IC  +  1 

GMF 

1750 

TRA 

*+1 

GET  OUT  OF  XED 

GMF 

1760 

SREG 

SREGS 

SAVE  REGISTERS 

GMF 

1770 

LDA 

=02767 4, DL 

PLACE  T190  TYPE  IN  A 

GMF 

1780 

LDQ 

=0  ,DL 

ZERO  OUT  Q 

GMF 

1790 

TRA 

MAKTR 

GO  HAKE  TRACE  T190 

GMF 

1800TREP 

ESTC1 

IC 

SAVE  IC  +  1 

GMF 

1810 

TRA 

«+1 

GET  OUT  OF  XED 

GMF 

■>o 

SREG 

SREGS 

SAVE  REGISTERS 

GMF 

1030 

LDA 

IC,I 

GET  PATTERN  ft,  TRACE  TYPE 

GMF 

1840 

LDXO 

1  ,DU 

INCREMENT  OUR 

GMF 

1850 

ASXO 

IC 

RETURN  ADDRESS 

GMF 

1860 

SZN 

GMF002 

CHECK  T74  ON/OFF 

GMF 

1370 

TZE 

EXIT1 

TRA  — >  TRACE  IS  OFF 

GMF 

1880 

EAXO 

0 ,  AU 

PATTERN  — >  XO 

GMF 

1890 

ANA 

=077777, DL 

TRACE  TYPE  IN  AL 

GMF 

1900 

STA 

TYPE 

SAVE  IN  TYPE  0000000TTT74 

GMF 

1910 

ARS 

6 

OOOOOOOOOTTT 

GMF 

1920 

EAX1 
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DEC 

0 

FUG  FOR  TRACE  ON  OR  OFF 

GMF 

141480NU 

ASCII 

1 ,NEWU 

GMF 

1*4*90$ 

MODIFY 

SOURCE, OBJECT 

,  TSSG 

1*500$ 

GMAP 

TSSG 

U510$ 

UPDATE 

LIST 

TSSG/GKF 

1*520$ 

ALTER 

82  - 

*****  GMF  ALTERS  ***** 

1*530 

SYMREF 

TREP 

GMF 

1*51*0 

XED 

TREP 

EXECUTE  DOUBLE  AT  TREP 

GMF 

1*550 

PMC 

ON 

GMF 

1*560 

VFD 

18/0, 12/16**, 06/7H  HAVE  18/PATTERN,  12/TRACE  0 

,  06/71*  GMF 

1*570$ 

MODIFY 

SOURCE, OBJECT 

,TSSH 

1*580$ 

GMAP 

TSSH 

1*590$ 

UPDATE 

LIST 

TSSH/GMF 

1*600$ 

ALTER 

2** 

3 
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*4610 

PMC 

ON 

GMF 

<4620$ 

ALTER 

185 

*****  GMF  ALTERS  ***** 

30 

SYMREF 

TREP 

GMF 

4640 

VFD 

18/TREP, 018/717200  EXECUTE  DOUBLE  AT  TREP 

GMF 

1»650 

VFD 

18/16,12/16, 

06/74  HAVE  18/PATTERN.  12/TRACE  0, 

C6/74  GMF 

i»660$ 

ALTER 

272 

*****  ALTER  FROM  SYSTEM  PATCHES 

\  ***** 

H670 

LDQ 

2,0 

PICK  UP  RESTRICT  BITS 

#281 

H680$ 

ALTER 

378 

*****  GMF  ALTERS  ***** 

H690 

VFD 

18/TREP, 018/717200  EXECUTE  DOUBLE  AT  TREP 

GMF 

1)700 

VFD 

18/0,12/171. 

06/74  HAVE  18 /PATTERN,  12/TRACE  it, 

06/74  GMF 

1)710$ 

ALTER 

404 

*****  GMF  ALTERS  ***** 

1)720 

VFD 

18/TREP, 018/717200  EXECUTE  DOUBLE  AT  TREP 

GMF 

4730 

VFD 

18/15,12/16,06/74  HAVE  18/PATTERN,  12/TRACE  #, 

06/74  GMF 

1)71)0$ 

MODIFY 

SOURCE, OBJECT, TSSI 

1)750$ 

GMAP 

TSSI 

11760$ 

UPDATE 

LIST 

TSSI/GMF 

1)770$ 

ALTER 

19 

*****  ENABLE  PMC  ***** 

4780 

PMC 

ON 

GMF 

4790$ 

ALTER 

207 

*****  GMF  ALTERS  ***** 

4800 

SYMREF 

TREP 

GMF 

4810 

XED 

TREP 

EXECUTE  DOUBLE  AT  TREP 

GMF 

4820 

VFD 

18/19,12/172 

,06/74  HAVE  18/PATTERN,  12/TRACE  0, 

06/74  GMF 

4830$ 

ALTER 

633,647 

*****  ALTERS  FROM  SYSTEM  PATCHES  ***** 

4840 

CANQ 

.BSAC.DL 

WAS  IT  RESTRICTED 

#271 

4850 

TZE 

0.1 

NO 

#271 

4860 

LDA 

.WWUSM.2 

RESTRICTED  USERS 

#271 

4870 

ERA 

=020000, DL 

HAVE  BIT  20  OFF 

#271 

80 

CANA 

=0120000 , DL 

AND  BIT  20  OFF  (SIC) 

#271 

.,690 

TNZ 

o.i 

TRANSFER  FOR  NON-RESTRICT 

#271 

4900 

LDXO 

=0706, DU 

BREACH  CODE  76 

#271 

4910 

TRA 

BRCH 

SHOUT  HIM  DOWN 

#271 

4920$ 

MODIFY 

SOURCE, OB JECT.TSSJ 

4930$ 

GMAP 

TSSJ 

4940$ 

UPDATE 

LIST 

TSSJ/GMF 

4950$ 

ALTER 

65 

*****  GMF  ALTERS  ***** 

4960 

SYMREF 

TREP 

GMF 

4970TRMAC 

MACRO 

GMF 

4980 

VFD 

18/TREP, 01 8/7 17200  EXECUTE  DOUBLE  AT  TREP 

GMF 

4990 

VFD 

16/01,12/02, 06/74  HAVE  18/PATTERN,  12/TRACE  0, 

06/74  GMF 

5000 

ENDM 

TRMAC 

GMF 

5010 

PMC 

ON 

GMF 

5020$ 

ALTER 

89 

*****  GMF  ALTER  ***** 

5030 

TRMAC 

23,185 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

5040$ 

ALTER 

246 

*****  GMF'  ALTER  *'  •** 

5050 

TRMAC 

0,177 

PATTERN  VALUE,  TP  TYPE 

GMF 

5060  • 

ALTER 

454,454 

*****  ALTER  FROM  .  TEM  PATCHES 

5070* 

EAX1 

1 

PUT  ONE  LINE  IN  MESSAGE 

#52A 

5080$ 

ALTER 

455,458 

*****  ALTERS  FROM  SYSTEM  PATCHES  ***** 

5090 

STCQ 

STD4.70 

#40G 

5100 

LDA 

.FBT32.DL 

#40G 

5110 

CANA 

.TLFLG 

#40G 
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5120 

TZE 

MSR325 

04  OG 

5130$ 

ALTER 

691 

*****  GMF  ALTER  ***** 

* 

5140 

TRMAC 

0,137 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

) 

5150$ 

ALTER 

982 

*****  GMF  ALTER  ***** 

5160 

TRMAC 

18,149 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

5170$ 

ALTER 

1271,1271 

*****  ALTER  FRCM  SYSTEM  PATCHES  **** 

ff 

5180 

STA 

0,3 

0341 

5190$ 

ALTER 

1558 

*****  GMF  ALTER  ***** 

5200 

TRMAC 

0.143 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

5210$ 

ALTER 

1836 

*****  GMF  ALTER  ***** 

5220 

TRMAC 

1,172 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

5230$ 

ALTER 

1919 

*****  GMF  ALTER  ***** 

5240 

TRMAC 

12,146 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

5250$ 

ALTER ‘ 

1994 

*****  GMF  ALTER  ***** 

5260 

TRMAC 

0,138 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

5270$ 

MODIFY 

SOURCE, OBJEC 

:T,TSSK 

5280$ 

GMAP 

TSSK 

5290$ 

UPDATE 

LIST 

TSSK/GMF 

5300$ 

ALTER 

26 

*****  GMF  ALTERS  ***** 

5310 

SYMREF 

TREP 

GMF 

5320TRMAC 

MACRO 

GMF 

5330 

VFD 

18/TREP, 018/717200  EXECUTE  DOUBLE  AT  TREP 

GMF 

5340 

VFD 

18/01,12/02, 

06/74  HAVE  18/PATTERN,  12/TRACE  0,  C6/74 

GMF 

5350 

ENDM 

TRMAC 

GMF 

5360 

PMC 

ON 

GMF 

5370$ 

ALTER 

92 

*****  GMF  ALTER  ***** 

5380 

TRMAC 

0,148 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

D 

5390$ 

ALTER 

266,266 

*****  ALTER  FRCM  SYSTEM  PATCHES  ***** 

5400 

TRA 

*+6,$ 

SKIP  RELM 

037 J 

5410$ 

ALTER 

286 

*****  GMF  ALTER  ***** 

5420 

TRMAC 

0,164 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

5430$ 

ALTER 

1122 

*****  GMF  ALTER  ***** 

5440 

TRMAC 

0,142 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

5450$ 

ALTER 

1138 

*****  GMF  ALTER  ***** 

5460 

TRMAC 

0,143 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

5470$ 

ALTER 

1819 

*****  ALTERS  FRCM  SYSTEM  PATCHES  ***** 

5480 

CMPX7 

100, DU 

ADDRESS  >=  144 

083J 

5490 

TMI 

K0TER1 

IF  NOT,  ILLEGAL  ADDRESS 

083J 

5500$ 

ALTER 

1824 

*****  ALTERS  FRCM  SYSTEM  PATCHES  ***** 

5510 

STX2 

4,4 

STORE  UST  ADDRESS  IN  UPPER  HALF 

057J 

5520 

LDX1 

=3HDRL,DU 

SET  FOR  DRL  FILACT 

057J 

5530 

SXL1 

4,4 

STORE  IT  INTO  LOWER  HALF 

057J 

5540$ 

ALTER 

1957 

*****  ALTER  FROM  SYSTEM  PATCHES  •***< 

* 

5550 

STZ 

10,0 

077K 

5560$ 

ALTER 

2253 

*****  GMF  ALTER  ***** 

5570 

TRMAC 

1,175 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

5580$ 

ALTER 

2500 

*****  GMF  ALTER  ***** 

5590 

TRMAC 

0,176 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

5600$ 

ALTER 

2797,2798 

*****  ALTERS  FRCM  SYSTEM  PATCHES  *«** 

tft 

5610REMFL 

LDXO 

.FUO.DU 

LET  PATDEA  KNOW  WE  HAVE  BREACHED 

04  5L 

5620 

ORSXO 

. WWUSI.2 

— CUZ  WE  MUST  DEALLOCATE  THE  FILE 

04  5L 
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5630REMFL2  LDXO 

•LSIZE.2 

SO  WE  NEED  THE  FILE  ENTRY 

04  5L 

*640 

ANXO 

=0777 000, DU 

—FROM  W10  OF  FMS  3UFFER 

.045L 

50 

STXO 

3.IC 

—SO  WE  CAN  SET  UP  A  CALL 

045L 

5660 

ADLXO 

.LDRL.2 

—TO  PATDEA. 

045L 

5670 

LXLO 

2,0 

045L 

5680 

ADLXO 

**  ,DU 

•  045L 

5690 

SXLO 

BUFCAL 

045L 

5700 

LXL4 

10,0 

04  5L 

5710 

.EMM. 

04  5L 

5720 

ADLX4 

,CRLAL,6 

04  5L 

5730 

LDA 

1.** 

FILENAME+O 

045L 

57*10 

LDQ 

2,4 

FILENAME+1 

045L 

5750 

TSS 

•+1 

045L 

5760 

TSX1 

PATDEA 

THIS  IS  THE  CALL 

#45L 

5770BUFCAL 

ZERO 

0,** 

ZERO,  BUFFER  ADDRESS  WITH  BAR 

045L 

5780 

ZERO 

0,0 

+1, NEVER 

04  5L 

5790 

ZERO 

0,0 

+2, NEVER 

045L 

5800 

TSX1 

LINSRV 

GO  WAIT  FOR  REAL  CC  TO  FINISH 

04  5L 

5810 

SYMDE? 

FVCC 

‘ 

04  5L 

5820FVCC 

TSX3 

*+1 

04  5L 

5830 

EAX2 

-.LCC-1,3 

OK, THE  REAL  CC  HAS  FINISHED 

045L 

58*40 

STZ 

-1,3 

—AND  THE  FILE  IS  NOW  DEACCESS  ED 

04  5L 

5850 

LDXO 

.FUO.DU 

045L 

5860 

ERSXO 

.WWUSI.2 

04  5L 

5870 

EAXO 

8 

LETS  BREACH  THIS  USER 

045L 

5880 

TRA 

BRCH 

04  5L 

*4890 

SYMDEF 

FVCC1 

045L 

30FVCC1 

TSX3 

•+1 

THE  SMC  WAS  BUSY  AND  PATDEA 

04  5L 

5$10 

EAX2 

-.LCC-1,3 

—COULD  HOT  DEALLOCATE  THE  FILE. 

045L 

5920 

STZ 

-1,3 

04  5L 

5930 

TRA 

REMFL2 

GO  RETRY  PATDEA 

045L 

59*10$ 

ALTER 

3484,3485 

*****  ALTER  0 30G  FROM  SYSTEM  PATCHES  ***** 

5950$ 

ALTER 

3655 

»**»»  GMF  ALTER  ***** 

5960 

TRMAC 

0,143 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

5970$ 

ALTER 

3989,3989 

*****  ALTERS  FROM  SYSTEM  PATCHES 

•  •••• 

5980 

ANA 

-1 ,  DL 

0571 

5990 

ALR 

24 

0571 

6000$ 

ALTER 

4000,4000 

*****  ALTERS  FRCM  SYSTEM  PATCHES 

6010 

LDA 

.LBUF.2 

0571 

6020 

AHA 

-1  ,DL 

0571 

6030 

ALR 

24 

0571 

6040 

ORA 

DATPT2 

0571 

6050$ 

ALTER 

4058.4058 

*****  ALTER  FROM  SYSTEM  PATCHES  ***** 

6060DATPT2 

OCT 

3400000 

0571 

6070$ 

ALTER 

4062,4062 

*****  ALTER  FROM  SYSTEM  PATCHES  < 

6080DATPT3  OCT 

4400000 

0571 

6090$ 

ALTER 

4071 

*****  GMF  ALTER  ***** 

6100 

TRMAC 

0,143 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

6110$ 

ALTER 

4160 

*****  GMF  ALTER  ***** 

6120 

TRMAC 

9,173 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

6130$ 

ALTER 

4403 

*****  GMF  ALTER  ***** 
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6140 

TRMAC 

0.143 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

6150$ 

ALTER 

4515 

*****  GMF  ALTER  ***** 

6160 

TRMAC 

0,16 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

6170$ 

ALTER 

4624 

*****  GMp  ALTER  ***** 

6180 

TRMAC 

0,142 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

6190$ 

ALTER 

4654 

*****  GMF  ALTER  ***** 

6200 

TRMAC 

0,143 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

6210$ 

ALTER 

4808 

*****  GMF  ALTER  ***** 

6220 

TRMAC 

0,143 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

6230$ 

ALTER 

5437 

*****  ALTER  i?62 J  FROM  SYSTEM  PAT 

CHES  ***** 

6240BAD 

.TSS 

SWH4 

tf62J 

6250$ 

ALTER 

5450 

*****  ALTERS  FROM  SYSTEM  PATCHES 

***** 

6260 

LXLO 

3.3 

SY** 

062J 

6270 

TZE 

BAD,$ 

*  YES 

#62J 

6280 

LXLO 

3.4 

SY** 

062J 

6290 

TZE 

BAD,$ 

YES 

062J 

6300$ 

ALTER 

5528 

*****  GMF  ALTER  ***** 

6310 

TRMAC 

11,173 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

6320$ 

ALTER 

5545 

*****  GMF  ALTER  ***** 

6330 

TRMAC 

2.175 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

6340$ 

ALTER 

5553 

*****  GMF  ALTER  ***** 

6350 

TRMAC 

0,176 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

6360$ 

ALTER 

5685 

*****  GMF  ALTER  ***** 

6370 

TRMAC 

3,175 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

6380$ 

ALTER 

5736 

*****  GMF  ALTER  ***** 

6390 

TRMAC 

0,176 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

6400$ 

ALTER 

5904 

*****  GMF  ALTER  ***** 

6410 

TRMAC 

10,173 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

6420$ 

ALTER 

6157 

*****  GMF  ALTER  ***** 

6430 

TRMAC 

4,175 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

6440$ 

ALTER 

6573 

*****  GMF  ALTER  ***** 

6450 

TRMAC 

0.147 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

6460$ 

ALTER 

6807 

*****  ALTERS  FROM  SYSTEM  PATCHES 

•  *•»• 

6470* 

NOTE 

CHANGE  THE  PRECEDING  CARD  TO  "6807,6807"  IF 

6480* 

SITE  OPTION  083A  IS 

USED. 

6490 

LDA 

•LFILE.2 

#92K 

6500 

LDQ 

0,AU* 

092K 

6510 

LDA 

2,QU 

092K 

6520 

CANA 

=0200000,DL 

092K 

6530 

TNZ 

*+8 

#92K 

6540* 

LDA 

=11520000 

TIME  LIMIT  (SEC*64000)  FOR  DHL  TASK  )783A 

6550$ 

ALTER 

6850 , 6856 

*****  ALTER  mOK  FROM  SYSTEM  PATCHES  ***** 

6560* 

<11  OK 

6570$ 

ALTER 

7004,7004 

*****  ALTERS  FROM  SYSTEM  PATCHES 

***** 

6580 

EAX1 

4 

#15J 

6590 

SZN 

TSK155, *1 

#15J 

6600 

TNZ 

TSK955 

#15J 

6610 

STX4 

TSK152 

#15J 

6620 

TSX1 

TSXSPF 

015J 

6630TSK152  ZERO 

**,REW 

#15J 

6640 

ZERO 

.TCTM8 

#15J 
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6650$ 

ALTER 

7072.7072 

*****  ALTERS  frcm  system  patches 

***** 

6660TSK240 

LDXO 

TSK152 

#15J 

70$ 

ALTER 

7105 

**»»»  GMF  ALTER  ***** 

6680 

TRMAC 

0.143 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

6690$ 

ALTER 

7215 

**»*«  GMF  ALTER  ***** 

6700 

TRMAC 

8.173 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

6710$ 

ALTER 

7354 

*****  GMF  ALTER  ***** 

6720 

TRMAC 

0.143 

PATTERN  VALUE.  TRACE  TYPE 

GMF 

6730$ 

ALTER 

8205 

*****  GMF  ALTER  ***** 

6740 

TRMAC 

0.143 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

6750$ 

ALTER 

8462 

*****  GMF  ALTER  ***** 

6760 

TRMAC 

6.175 

PATTERN  VALUE.  TRACE  TYPE 

GMF 

6770 $ 

ALTER 

8498 

*****  GMF  ALTER  ***** 

6780 

TRMAC 

0.176 

PATTERN  VALUE.  TRACE  TYPE 

GMF 

6790$ 

ALTER 

8919 

*****  GMF  ALTER  ***** 

6800 

TRMAC 

22.179 

TRACE  FOR  CONN  COMMAND 

GMF 

6810$ 

ALTER 

8977 

*****  ALTER  FROM  SYSTEM  PATCHES 

***** 

6820 

ST2 

•  LKCC.2 

NO  CC  WAITING 

036L 

6830$ 

ALTER 

9254 

*****  GMF  ALTER  ***** 

6840 

TRMAC 

5,175 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

6850$ 

ALTER 

9263 

*****  GMF  ALTER  ***** 

6860 

TRMAC 

0,176 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

6870$ 

ALTER 

9296.9296 

*****  ALTER  FRCM  SYSTEM  PATCHES 

6880 

TRA 

3.IC 

018H 

6890$ 

ALTER 

9398 

*****  ALTERS  FRCM  SYSTEM  PATCHES 

***** 

6900 

ANA 

-1.DL 

SAVE  LOWER  HALF  ONLY 

0O9L 

6910 

ORA 

=0202020, DU 

BLANK  OUT  THE  UPPER  HALF 

0O9L 

?0$ 

ALTER 

9409 

*****  ALTER  FRCM  SYSTEM  PATCHES 

»*»** 

o930 

STZ 

ACCNT+17 

ZERO  OUT  WORD  18 

0O9L 

6940$ 

ALTER 

9445 , 9446 

*****  ALTERS  FROM  SYSTEM  PATCHES 

6950 

ANA 

=07777. DL 

MASK  LINE  ID 

033G 

6960 

CMPA 

=07777. DL 

CHECK  LINE  FOR  FALSE 

033G 

6970$ 

ALTER 

9454, 9H54 

*****  ALTER  FROM  SYSTEM  PATCHES 

till! 

6980 

NOP 

.CRLGQ+4 , ID 

072H 

6990$ 

ALTER 

9489,9489 

*****  ALTER  FRCM  SYSTEM  PATCHES 

***** 

7000 

LDA 

•LFLAG.2 

IF  SUB SYS  KNOWN 

033L 

7010$ 

MODIFY 

SOURCE.OBJE 

CT.TSSL 

7020$ 

GMAP 

TSSL 

7030$ 

UPDATE 

LIST 

TSSL/GMF 

7040$ 

ALTER 

37 

*****  GMF  ALTERS  ***** 

7050 

SYMREF 

TREP 

GMF 

7060TRMAC 

MACRO 

GMF 

7070 

VFD 

18/TREP, 018/717200  EXECUTE  DOUBLE  AT  TREP 

GMF 

7080 

VFD 

18/01,12/02 

,06/74  HAVE  18/PATTERN,  12/TRACE  0,  06/74  GMF 

7090 

ENDM 

TRMAC 

GMF 

7100 

PMC 

ON 

GMF 

7110$ 

ALTER 

176 

*****  GMF  ALTER  ***** 

7120 

TRMAC 

12,174 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

7130$ 

ALTER 

1021 

*****  GMF  ALTER  ***** 

7140 

TRMAC 

0,182 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

7150$ 

ALTER' 

1086 

*****  GMF  ALTER  ***** 
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7160 

TRMAC 

22,184 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

7170$ 

ALTER 

1315 

*****  GMF  ALTER  ***** 

7180 

TRMAC 

21,181 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

7190$ 

ALTER 

1966 

*****  GMF  ALTER  ***** 

7200 

TRMAC 

13.144 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

7210$ 

ALTER 

2255 

*****  GMF  ALTER  ***** 

7220 

TRMAC 

0,148 

PATTERN  VALUE,  TRAC"  TYPE 

GMF 

7230$ 

ALTER 

2366 

*****  GMF  ALTER  ***** 

7240 

TRMAC 

0,148 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

7250$ 

ALTER 

2536 

*****  GMF  ALTER  ***** 

7260 

TRMAC 

0,135 

VIP  PAGING  TRACE 

GMF 

7270$ 

ALTER 

2943 

*****  GMF  ALTER  ***** 

7280 

TRMAC 

18,163 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

7290$ 

ALTER 

2949 

*****  GMF  ALTER  ***** 

7300 

TRMAC 

18,146 

TRACE  WILL  BE  T136  IF  DEFERRED 

OR  CRUN 

7310$ 

MODIFY 

SOURCE.OSJEC 

T.TSSM 

7320$ 

GMAP 

7330$ 

UPDATE 

LIST 

7340$ 

ALTER 

69 

*****  GMF  ALTERS  ***** 

7350 

SYMREF 

TREP 

GMF 

7360 

VFD 

18/TREP, 01 8/71 7200  EXECUTE  DOUBLE  AT  TREP 

GMF 

7370 

VFD 

18/14,12/160 

,06/74  HAVE  18/PATTERN,  12/TRACE  it. 

06/74  GMF 

7380 

PMC 

OH 

GMF 

7390$ 

ALTER 

760 

*****  GMF  ALTERS  ***** 

7400 

VFD 

18/TREP, 018/717200  EXECUTE  DOUBLE  AT  TREP 

GMF 

7410 

VFD 

18/0,12/176, 

06/74  HAVE  18/PATTERN,  12/TRACE  0 , 

06/74  GMF 

7420$ 

ALTER 

852 

*****  GMF  ALTERS  ***** 

7430 

CMPA 

=6HTRACE 

TEST  FOR  NEW  COMMAND 

GMF 

7440 

TZE 

GMF001 

GMF 

7450$ 

ALTER 

860 

*****  GMF  ALTERS  ***** 

7460* 

GMF 

7470* 

GMF 

7480* 

TRACE  ON/OFF 

GMF 

7490* 

GMF 

7500* 

GMF 

7510 

SYMREF 

GMF002 

GMF 

7520GMF001 

EAA 

O.QU 

ISOLATE  OPERAND 

GMF 

7530 

CMPA 

=3H0FF.DU 

TEST  LEGAL  VALUES 

GMF 

7540 

TZE 

GMF003 

GMF 

7550 

CMPA 

=3H0N  ,DU 

GMF 

7560 

TZE 

GMF004 

GMF 

7570 

STQ 

GMF999 

STORE  INTO  CONSOLE  MESSAGE 

GMF 

7580 

EAA 

GMF899 

DCW  ADDRESS 

'GMF 

7590 

TRA 

GMF100 

WRITE  MESSAGE 

GMF 

7600* 

TRACE  OFF 

GMF 

7610 

SYMREF 

JSTOFF 

GMF 

7620GMF003 

SZIIC 

GMF002 

SET  INDICATOR  OFF,  TEST  IT 

GMF 

7630 

TZE 

2,IC 

DON'T  MAKE  TRACE  IF  ALREADY  OFF  GMF 

7640 

XED 

JSTOFF 

MAKE  TRACE  TYPE  T190 

GMF 

7650 

EAA 

GMF898 

DCW  ADDRESS 

GMF 

7660 

TRA 

GMF100 

WRITE  MESSAGE 

GMF 

TSSM 

TSSM/GMF 
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7670* 

TRACE 

ON 

GMF 

™80GMF004 

STC2 

GMF002 

SET  FLAG  TO  NONZERO 

GMF 

„  M 

EAA 

GMF897 

DCW  ADDRESS 

GMF 

7700GMF100 

ARL 

18 

POSITION  DCW  ADDRESS 

GMF 

7710 

STCA 

GMF101.07 

STORE  INTO  GEINOS  SEQUENCE 

GMF 

7720 

MME 

GEINOS 

WRITE  MESSAGE  TO  CONSOLE 

GMF 

7730 

WTYP 

GMF 

7740GMF101 

ZERO 

EXTS6A,** 

GMF 

7750 

ZERO 

GMF 

7760 

TRA 

EXTS08 

GET  NEXT  ENTRY 

GMF 

7770GMF897 

IOTD 

*+1,5 

GMF 

7780 

OCT 

770117171717 

GMF 

7790 

BCI 

4 , *T/S  GMF  TRACE  STARTED 

GMF 

7800GMF898 

IOTD 

*+1.5 

GMF 

7810 

OCT 

770117171717 

GMF 

7820 

BCI 

4 , *T/S  GMF  TRACE  STOPPED 

GMF 

7830GMF899EI0TD 

*+1,6 

GMF 

7840 

OCT 

770117171717 

GMF 

7850 

BCI 

4,*T/S  INVALID 

GMF  OPTION 

GMF 

7860GMF999 

BCI 

1, 

GMF 

7870$ 

ALTER 

956 

*****  GMF  ALTERS  ***** 

7880 

VFD 

18/TREP, 018/717200  EXECUTE  DOUBLE  AT  TREP 

GMF 

7890 

VFD 

18/0,12/161,06/74  HAVE  18/PATTERN,  12/TRACE  0,  06/74  GMF 

7900$ 

MODIFY 

SOURCE, OBJECT, 

TSSN 

7910$ 

GMAP 

TSSN 

7920$ 

UPDATE 

LIST 

TSSN /GMF 

**030$ 

ALTER 

22 

*****  ENABLE  PMC  ***** 

40 

PMC 

ON 

GMF 

7950$ 

ALTER 

126,126 

*****  ALTER  FROM  SYSTEM  PATCHES 

**«»• 

7960 

TNZ 

PATCH 

<?nu 

7970$ 

ALTER 

140 

*****  ALTERS  FROM  SYSTEM  PATCHES 

***** 

7980 

INHIE 

SAVE, ON 

08 1J 

7990PATCH 

LDA 

,LBUF,2 

0  6;J 

8000 

LCQ 

=01 0000, DL 

081 J 

8010 

MME 

.EMM 

081 J 

8020 

LXL4 

.CRCGT 

081 J 

8030 

LDX1 

.CRCGT 

081J 

8040 

XED 

.CRMPG 

081 J 

8050 

DRL 

.CRCGT+1 

081J 

8060 

XED 

.CRMPG+2 

081 J 

807 0L1 

CMK 

,1 

081J 

8080 

TZE 

FND1 ,$ 

081 J 

8090 

ADLX1 

11, DU 

081 J 

8100 

SBLX4 

1  ,DU 

081 J 

8110 

TNZ 

L1,$ 

081 J 

8120NCON 

STC2 

.CRCGT+1 

081 J 

8130 

XED 

.CROGT 

081 J 

8140 

TSS 

GUST3N 

081 J 

8150FND1 

SZN 

0,1 

081J 

8160 

TPL 

NCON,$ 

081 J 

8170 

LDAC  ' 

4,1 

081 J 
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8180 

STC2 

. CRCGT+1 

• 

081 J 

8190 

XED 

.CROGT 

081 J 

8200 

TSS 

«+1 

081 J 

8210 

INHIB 

RESTORE 

081 J 

8220 

ST  A 

105.2 

081 J 

82  30 

TRA 

GU5T3N 

.  081 J 

8240$ 

ALTER 

381 

GMF  ALTERS  ***** 

8250 

SYMREF 

TREP 

GMF 

8260TRMAC  MACRO 

GMF 

8270 

VF  D 

18/TREP, 01 8/7 17200  EXECUTE  DOUBLE  AT  TREP 

GMF 

8280 

VFD 

18/01,12/172 

,CS/74  HAVE  18/PATTERN,  12/TRACE  0, 

06/74  GMF 

8290 

ENDM 

TRMAC 

GMF 

8300 

TKMAC 

21,130 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

8310$ 

ALTER 

685 

•••«•  GMF  ALTER  ***** 

8320 

TRMAC 

0, 132 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

8330$ 

ALTER 

788 

*****  GMF  ALTER  ***** 

8340 

TRMAC 

0,183 

PATTERN  VALUE.  TRACE  TYPE 

GMF 

3350$ 

ALTER 

1099 

*****  GMF  ALTER  ***** 

8360R. 

T165  TRMAC 

17,165 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

8370 

TRA 

R .NORM 

CONTINUE  VJHEP.S  LEFT  OFF 

GMF 

8380$ 

ALTER 

1102,1102 

*****  qmF  ALTER  ***** 

8390 

TRA 

R.T165 

MAKE  TRACE  T165 

GMF 

8400$ 

ALTER 

1118 

*****  GMF  ALTER  ***** 

8410 

TRMAC 

18,138 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

8420$ 

ALTER 

1142 

*****  gmF  ALTER  ***** 

8430 

TRMAC 

17.165 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

8440$ 

ALTER 

1160 

#•*••  GMF  ALTERS  ***** 

8450R. 

T145  TRMAC 

0,145 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

8460 

TRA 

R . NORM 

CONTINUE  IN  ORIGINAL  SEQUENCE 

GMF 

8470$ 

ALTER 

1162, 11 62 

*****  GMF  ALTER  ***** 

8480 

TRA 

R.T145 

DON'T  ADD  INSTRUCTIONS  HERE 

GMF 

8490$ 

ALTER 

1193 

*****  GMF  ALTER  ***** 

8500 

TRMAC 

0.143 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

8510$ 

ALTER 

1234 

*****  QMF  .'.[.TER  ***** 

8520 

TRMAC 

0,143 

PATTERN  V  YE,  TRACE  TYPE 

GMF 

8530$ 

ALTER 

1236 

*****  GMF  EH  ***** 

8540 

TRMAC 

0,140 

PATTERN  V/ . ,E,  TRACE  TYPE 

GMF 

8550$ 

ALTER 

1280 

*«•*<  GMF  ALTER  ***** 

8560 

TRMAC 

0,148 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

8570$ 

ALTER 

1288 

*****  GMF  ALTER  ***** 

8580 

TRMAC 

20,146 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

8590$ 

ALTER 

1326 

»»•*•  GMF  ALTER  ***** 

8600 

TRMAC 

0,143 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

8610$ 

ALTER 

1348 

*****  GMF  ALTER  ***»••* 

8620 

TRMAC 

0,145 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

8630$ 

ALTER 

1356 

*****  GMF  ALTER  ***** 

8640 

TRMAC 

20,146 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

8650$ 

ALTER 

1420 

*****  GMF  ALTER  ***** 

8660 

TRMAC 

0,143 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

8670$ 

ALTER 

1443 

«•»••  GMF  ALTER  ***** 

8680 

TRMAC 

0,145 

PATTERN  VALUE,  TRACE  TYPE 

GMF 
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8690$ 

ALTER 

1451 

*****  GMF  ALTER  ***** 

* 

“700 

TRMAC 

20, 146 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

10$ 

ALTER 

1488 

*****  GMF  ALTER  ***** 

8720 

TRMAC 

0,143 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

8730$ 

ALTER 

1510 

*****  GMF  ALTER  ***** 

8740 

TRMAC 

0,143 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

8750$ 

ALTER 

1545 

*****  GMF  ALTER  ***** 

8760 

TRMAC 

18,139 

PATTERN  VALUE.  TRACE  TYPE 

GMF 

8770$ 

ALTER 

1600 

*****  GMF  ALTERS  ***** 

8780T145 

LDA 

-1.3 

GET  GEROUT  VFD  WORD 

GMF 

8790 

ANA 

=0770000, DL 

GET  GEROUT  CP-CCDE 

GMF 

8800 

CMPA 

=0210000, DL 

PAPER  TAPE  START? 

GMF 

8810 

TZE 

T145A 

YES-MAKE  TRACE  T145 

GMF 

8820 

CMPA 

=0220000, DL 

PAPER  TAPE  CONTINUE? 

GMF 

8830 

TN2 

R . NORM 

N0-C0N7INUE 

GMF 

8840T145A 

TRMAC 

0,145 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

8850 

TRA 

R.NORM 

CONTINUE  IN  ORIGINAL  SEQUENCE 

GMF 

8860* 

8870* 

NOTE— THE  A-REGISTER 

NEED  NOT  BE  SAVED,  SINCE  R.NORM+1 

GMF 

8880* 

RESTORES  ALL  REGISTE 

RS 

GMF 

8890$ 

ALTER 

1604,1604 

*****  GMF  ALTER  ***** 

8900 

TRA 

T145 

DON'T  ADD  INSTRUCTIONS  HERE 

GMF 

8910$ 

MODIFY 

SOURCE, 03JECT, TSSO 

8920$ 

GMAP 

8930$ 

UPDATE 

LIST 

8940$ 

ALTER 

9 

*****  ENAELE  PMC  ***** 

GMF 

”950 

PMC 

ON 

GMF 

.60 

SYMREF 

TREP 

GMF 

8970TRMAC 

MACRO 

GMF 

8980 

VFD 

18/TREP, 01 8/7 17200  EXECUTE  D0U3LZ  AT  TREP 

GMF 

8990 

VFD 

18/01,12/02, 

06/74  HAVE  18/PATTERN,  12/TRACE  0 

GMF 

9000 

ENDM 

TRMAC 

GMF 

9010$ 

ALTER 

322 

*****  GMF  ALTERS  ***** 

9020 

TRMAC 

18,149 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

9030$ 

ALTER 

366 

*****  GMF  ALTER  ***** 

9040 

TRMAC 

0,148 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

9050$ 

ALTER 

374 

*****  GMF  ALTER  ***** 

9060 

TRMAC 

20,146 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

9070$ 

ALTER 

422 

*****  GMF  ALTER  ***** 

9080 

TRMAC 

12,146 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

9090$ 

ALTER 

728 

*****  GMF  ALTER  ***** 

9100 

TRMAC 

0,148 

PATTERN  VALUE,  TRACE  TYPE 

GMF 

9110$ 

ALTER 

836 

*****  ALTERS  FROM  SYSTEM  PATCHES 

9120 

LDA 

COUNT 

0691 

9130 

STA 

CNTR 

0691 

9140$ 

ALTER 

886,886 

*****  ALTER  FROM  SYSTEM  PATCHES  * 

!*##» 

9150 

TSX1 

P2 

0691 

9160$ 

ALTER 

906,906 

*****  ALTER  FROM  SYSTEM  PATCHES  * 

fllftl 

9170 

TSX1 

P2 

0691 

9180$ 

ALTER 

913 

*****  ALTER  FROM  SYSTEM  PATCHES  1 

>•••• 

9190COUNT 

DEC 

-48 

0691 

TSSO 

TSSO/GMF 
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92003AVAR 

OCT 

0 

#691 

9210P2 

ESTA 

SAVAR 

#691 

9220 

AOS 

CNTR 

#691 

9230 

T2E 

3.IC 

#691 

9240 

LDA 

SAVAR 

#691 

9250 

TRA 

KOTBCK 

#691 

92  60 

STX5 

CNTR 

#691 

9270 

SXL6 

CNTR 

#691 

9280 

MME 

.EMM 

#691 

9290 

EAX7 

0.7 

#691 

93  00 

TNZ 

*+3.$ 

#691 

9310 

LDAQ 

•CRM CM 

#691 

9320 

SMCM 

0 

#691 

9330 

LDX5 

CNTR , $ 

#691 

9340 

LXL6 

CNTR , $ 

#691 

9350 

LDA 

COUNT, $ 

#691 

9360 

STA 

CNTR , $ 

#691 

9370 

LDA 

SAVAR, $ 

#691 

93  80 

TSS 

KOTBCX 

#691 

9390CNTR 

OCT 

0 

#691 

9400GMASK 

OCT 

17,17 

#691 

9410$ 

ALTER 

933 

*****  ALTERS  FROM  SYSTEM  PATCHES  ***** 

9420 

LXL4 

.LBUF.2 

#75H 

9430 

ANX4 

=0370000, DU 

#75H 

9440 

SBLX4 

=0130000, DU 

#75H 

9450 

TPL 

KOT3CO 

#75H 

9460$ 

ALTER 

1123 

*****  GMF  ALTERS  ***** 

9470T.1373 

EAX2 

-.LKCC-1 , 3 

SET  UP  X2=UST  ADDRESS  GMF 

94  80 

TRMAC 

0,137 

PATTERN  VALUE,  TRACE  TYPE  GMF 

9490 

EAX1 

KOT3CC+2 

THESE  TWO  INSTRUCTIONS  REPLACE  THE  GMF 

9500 

TRA 

KS  TAT 

TSX1  KSTAT  REPLACED  BELOW  BY  TRA  T.137B 

9510$ 

ALTER 

1124,1124 

*****  GMF  ALTER  ***** 

9520 

TRA 

T.137B 

TO  MAKE  TRACE  CUT  OF  LINE  GMF 

9530$ 

ALTER 

1239.1240 

*****  ALTERS  FROM  SYSTEM  PATCHES  ***** 

9540 

ZERO 

.MFS03 , .MFS03 

LOAD  MODULE  .KFS03  #81 A 

9550 

ZERO 

.MFS04, .MFS04 

#81A 

9560 

ZERO 

•MFS09 , .MFS09 

#81A 

9570 

ZERO 

.MFS36..MFS36 

#81A 

9580 

ZERO 

.MFS61 , .MFS61 

#81A 

9590 

ZERO 

. MFS08, .MFS08 

#81A 

9600$ 

ALTER 

1244,1244 

*****  ALTER  FROM  SYSTEM  PATCHES  ***** 

9610 

TZE 

SSALD7 

THERE  ARE  NONE,  SKIP  THIS  #50J 

9620$ 

ALTER 

1393' 

*****  GMF  ALTERS  ***** 

9630 

MME 

GEINOS 

PRINT  STARTING  MESSAGE  GMF 

9640 

WTYP 

GMF 

9650 

ZERO 

IN930.MAIN01 

GMF 

9660 

ZERO 

STATUS 

GMF 

9670 

MME 

GEROAD 

WAIT  GMF 

9680$ 

ALTER 

1447 

*****  GMF  ALTERS  ***** 

9690MAIH01 

IOTD 

*■*•1,9 

GMF 

9700 

OCT 

770117171717 

GMF 
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9710 

DC I  3,*T/S  GMF  VERSION 

GMF 

Q720 

DATE 

GMF 

30 

BCI  4,  SUCCESSFULLY  LOADED 

GMF 

9740TSC 

DC I  1..TSSEC 

096J 

9750H1 

DEC  -1 

C  96J 

9760$ 

ALTER  2296  *****  ALTERS  FRCM 

SYSTEM  PATCHES  »*«*» 

9770 

ST  A  HI 

#96  J 

9780 

LDA  IN022 

)6J 

9790 

CMPA  TSC 

#96J 

9800 

TNZ  P2A 

#96J 

9810 

LDA  HI 

#96J 

9820 

ADLA  =0200 ,DL 

#96J 

9830 

TRA  »+2 

#96J 

9840P2A 

LDA  HI 

#96J 

9850$ 

INCLUDE 

9860$ 

ENTRY  MAIN 

9870$ 

EXECUTE 

9880$ 

ENDLD 

9890$ 

ENDED IT 

9900$ 

ENDCOPY 

9910$ 

PRMFL  M* ,R,S,E29IDPX0/TSS6. 4. 1 

9920$ 

FILE  *R.Z2R 

9930$ 

FILE  R«,X3S,30L 

9940$ 

SYSEDIT 

9950ENDFIL 

E/TSS-GECALL/ 

9960$ 

LIMITS  , 40K 

9970$ 

FILE  R*,X3R 

60$ 

TAPE  Q«,X5D,, 99999,, RING-IN  **  SUPPLY 

TAPE  NUMBER  *« 
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